perm filename BINOM.LSP[W81,JMC] blob sn#559211 filedate 1981-01-23 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	(defun p2 (x u n) (if 
C00003 ENDMK
CāŠ—;
(defun p2 (x u n) (if 
		 (= n 0)
		 u
		 (cons (plus x (car u)) (p2 (plus x (car u)) (cdr u) (sub1 n)))))

(defun b1 (u n) (if (= n 1) u (b1 (p2 0 u n) (sub1 n))))

(setq x1 '(1))
(setq x2 '(1 1))
(setq x4 '(1 1 1 1 1))